home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
DATETIME.SWG
/
0032_BASM Get Date Routine.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-11-26
|
351b
|
27 lines
{
From: LIAM STITT
Subj: BASM Get Date
}
type
DateInfo = record
Year: Word;
Month: Byte;
Day: Byte;
DOW: Byte;
end;
var
DI: DateInfo;
procedure GetDate; assembler;
asm
mov ah,2Ah
int 21h
mov DI.Year,cx
mov DI.Month,dh
mov DI.Day,dl
mov DI.DOW,al
end;